home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / maxicras.arc / INSTALL.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1986-03-23  |  3.8 KB  |  62 lines
  1. 10  'Copyright (c) 1983,1984 by Exador, Inc.
  2. 15  'INSTALL Version B.0/SANYO
  3. 25  DIM F$(19):GOSUB 270:GOSUB 30:GOTO 60
  4. 30  CLS
  5. 40  PRINT TAB(7)"* * * MAXI Check Register Accounting System Installation Menu * * *"
  6. 50  PRINT STRING$(80,"-"):RETURN
  7. 60  CLOSE:OPEN"O",1,"MAXICRAS.TER"
  8. 70  LOCATE 4,1:PRINT"ENTER the drive letter to be used to store the PROGRAM DISK (A-D)":PRINT SPACE$(80):LOCATE 5,1:INPUT "(Also accepts DOS 2.0 TREE directories): ",IN$:GOSUB 35000
  9. 71  INN$=LEFT$(IN$,1):IF (INN$="A" OR INN$="B" OR INN$="C" OR INN$="D") AND LEN(IN$)=1 THEN F$(3)=IN$+":" ELSE IF RIGHT$(IN$,1)="\" THEN F$(3)=IN$ ELSE 70
  10. 80  LOCATE 6,1:PRINT"ENTER the drive letter to be used to store the DATA DISK (A-D)":PRINT SPACE$(80):LOCATE 7,1:INPUT "(Also accepts DOS 2.0 TREE directories): ",IN$:GOSUB 35000
  11. 81  INN$=LEFT$(IN$,1):IF (INN$="A" OR INN$="B" OR INN$="C" OR INN$="D") AND LEN(IN$)=1 THEN F$(4)=IN$+":" ELSE IF RIGHT$(IN$,1)="\" THEN F$(4)=IN$ ELSE 80
  12. 100  IF F$(19)="8" THEN 110 ELSE LOCATE 8,1:PRINT"Are you using the COLOR/GRAPHICS monitor adapter (Y/N)";SPACE$(25);:LOCATE 8,56:GOSUB 34000
  13. 101  IF IN$="Y" THEN F$(7)="C":F$(17)="1":GOTO 120 ELSE IF IN$="N" THEN F$(7)="M":F$(5)="0":F$(6)="1":F$(17)="0":GOTO 120 ELSE 100
  14. 110  LOCATE 8,1:PRINT"Are you using a COLOR monitor (Y/N)";SPACE$(44);:LOCATE 8,37:GOSUB 34000
  15. 111  IF IN$="Y" THEN F$(7)="C":F$(17)="1" ELSE IF IN$="N" THEN F$(7)="M":F$(5)="0":F$(6)="3":F$(17)="0" ELSE 110
  16. 120  IF F$(7)="M" THEN 130
  17. 121  IF F$(19)="8" THEN IN$="Y" ELSE LOCATE 10,1:PRINT"Are you using an RGB monitor (Y/N)";SPACE$(25);:LOCATE 10,36:GOSUB 34000
  18. 122  IF IN$="Y" THEN F$(5)="1":F$(6)="4" ELSE IF IN$="N" THEN F$(5)="0":F$(6)="0" ELSE 121
  19. 130  LOCATE 12,1:INPUT"ENTER the maximum number of columns supported by your printer (80/132)";IN$
  20. 140  IF IN$="80" THEN F$(8)="80" ELSE IF IN$="132" THEN F$(8)="132" ELSE LOCATE 12,72:PRINT SPACE$(9): GOTO 130
  21. 160  IF F$(8)="80" THEN F$(9)=CHR$(0):F$(10)=CHR$(0):GOTO 435
  22. 170  LOCATE 14,1:INPUT "How many control codes are required to ENABLE the 132 column mode";IN$
  23. 180  IF VAL(IN$)=0 THEN F$(9)=CHR$(0):F$(10)=CHR$(0):GOTO 435
  24. 190  F$(9)="":FOR I=1 TO VAL(IN$)
  25. 200  IF 15+I<=24 THEN LOCATE 15+I,1 ELSE LOCATE 24,1
  26. 201  PRINT "ENTER the decimal value of control code #";I;:INPUT Z$
  27. 210  F$(9)=F$(9)+CHR$(VAL(Z$)):NEXT:II=15+VAL(IN$)+2
  28. 220  IF II<=24 THEN LOCATE II,1 ELSE LOCATE 24,1
  29. 221  INPUT "How many control codes are required to ENABLE the 80 column mode";IN$
  30. 230  IF VAL(IN$)=0 THEN F$(10)="0":GOTO 435
  31. 240  F$(10)="":FOR I=1 TO VAL(IN$)
  32. 250  IF II+1+I<=24 THEN LOCATE II+1+I,1 ELSE LOCATE 24,1
  33. 251  PRINT "ENTER the decimal value of control code #";I;:INPUT Z$
  34. 260  F$(10)=F$(10)+CHR$(VAL(Z$)):NEXT:GOTO 435
  35. 270  GOSUB 30:GOSUB 30000
  36. 400  PRINT TAB(17);"1     -     IBM PC"
  37. 405  PRINT TAB(17);"2     -     IBM PC/XT"
  38. 407  PRINT TAB(17);"3     -     COMPAQ"
  39. 410  PRINT TAB(17);"4     -     TANDY 2000"
  40. 415  PRINT TAB(17);"5     -     EAGLE PC"
  41. 420  PRINT TAB(17);"6     -     TEXAS INSTRUMENTS"
  42. 425  PRINT TAB(17);"7     -     HYPERION"
  43. 426  PRINT TAB(17);"8     -     SANYO MBC-550"
  44. 427  'PRINT TAB(17);"9     -     ZENITH PC"
  45. 430  FMAX=8:GOSUB 31000:F$(19)=MID$(STR$(IN),2):RETURN
  46. 435  IN=VAL(F$(19)):IF (IN=1 OR IN=2 OR IN=3 OR IN=4 OR IN=5 OR IN=6 OR IN=9) AND F$(7)="M" THEN F$(11)=CHR$(196):F$(12)=CHR$(223):F$(13)=CHR$(254):F$(14)="31":F$(15)="7":F$(16)="23":F$(18)=F$(13):GOTO 500
  47. 436  IF (IN=1 OR IN=2 OR IN=3 OR IN=5 OR IN=6 OR IN=7) THEN F$(11)=CHR$(196):F$(12)=CHR$(223):F$(13)=CHR$(254):F$(14)="31":F$(15)="15":F$(16)="1":F$(18)=F$(12):GOTO 500
  48. 437  IF IN=4 THEN F$(11)=CHR$(196):F$(12)=CHR$(223):F$(13)=CHR$(254):F$(14)="4":F$(15)="15":F$(16)="1":F$(18)=F$(12):GOTO 500
  49. 438  IF (IN=8 AND F$(7)="M") THEN F$(11)=CHR$(196):F$(12)=CHR$(223):F$(13)=CHR$(254):F$(14)="6":F$(15)="2":F$(16)="7":F$(18)=F$(13):GOTO 500
  50. 439  IF IN=8 THEN F$(11)=CHR$(196):F$(12)=CHR$(223):F$(13)=CHR$(254):F$(14)="4":F$(15)="7":F$(16)="1":F$(18)=F$(12):GOTO 500
  51. 440  IF IN=9 THEN F$(11)=CHR$(122):F$(12)=CHR$(122):F$(13)=CHR$(94):F$(14)="7":F$(15)="7":F$(16)="7":F$(18)=F$(13):GOTO 500
  52. 500  FOR I=3 TO 19:PRINT#1,F$(I):NEXT I
  53. 570  CLOSE:CLS:SYSTEM
  54. 30000  LOCATE 4,5
  55. 30010  PRINT "Function Code           Computer"
  56. 30020  PRINT TAB(5) STRING$(13,"-");TAB(29) STRING$(8,"-")
  57. 30030  LOCATE 6,17:RETURN
  58. 31000  LOCATE 22,22:INPUT "ENTER the Function Code desired ";IN:IF IN<1 OR IN>FMAX THEN 31000 ELSE RETURN
  59. 34000  INPUT IN$:GOTO 35000
  60. 35000  FOR LOWER=1 TO LEN(IN$):LOWER1=ASC(MID$(IN$,LOWER,1)):IF LOWER1 >96 AND LOWER1 <123 THEN MID$(IN$,LOWER,1)=CHR$(LOWER1-32)
  61. 35010  NEXT :RETURN
  62.